subroutine outputTec
use var
implicit none

    character(len=20)string
    integer i
    
    
        write(string,'(a3,i6.6,a4)')'tec',Tstep,'.plt'
        open(unit=100,file=trim(adjustl(string)))    
        write(100,*) 'variables="x",variables="y","d(x,y)","u(x,y)","v(x,y)","p(x,y)","q(x,y,1)","q(x,y,2)","q(x,y,3)","q(x,y,4)"'
        write(100,*) 'zone I=',gridsx,'F=Point'
        write(100,*) 'solutionTime=',tt
        do i=1,gridsx
            write(100,"(7(1xd20.10))")x(i),y(i),d(i),u(i),v(i),p(i),q(i,1:4)
        end do
        close(100)
    
    

end subroutine 